﻿Public NotInheritable Class SqlServerConstraintType

    Public Shared ReadOnly PrimaryKey As New SqlServerConstraintType(1, "PRIMARY KEY")
    Public Shared ReadOnly ForeignKey As New SqlServerConstraintType(2, "FOREIGN KEY")
    Public Shared ReadOnly Check As New SqlServerConstraintType(3, "CHECK")
    Public Shared ReadOnly Unique As New SqlServerConstraintType(4, "UNIQUE")
    Private ReadOnly name As [String]
    Private ReadOnly value As Integer

    Private Sub New(value As Integer, name As [String])
        Me.name = name
        Me.value = value
    End Sub

    Public Overrides Function ToString() As [String]
        Return name
    End Function

End Class

